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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS ie urrie He aati er A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
CLUSION OF THE ABOVE tgp lth NOTICE. ree SOFTWARE OR ANY OTHER 
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FACILITY: REMACP = REMOTE I/O ACP 
ABSTRACT: 


THESE ROUTINES LOCK AND UNLOCK THE I/0 DATA BASE MUTEX. 
NEEDLESS TO SAY, THEY MUST BE CALLED IN KERNEL MODE. 


ENVIRONMENT: 


STARLET OPERATING SYSTEM, INCLUDING PRIVILEGED SYSTEM SERVICES 
AND INTERNAL EXEC ROUTINE. 


AUTHOR: Scott G. Davis, CREATION DATE: 20-Jul-1979 15:31 | 
MODIFIED BY: | 


v03-004 eee: L. Mark Pilant, 12-Jul-1984 10:27 
opy protection re we template UCB to the cloned UCB. 
£9 protection in cloned UCB is cleared in the 
rout the [OCSCLONE *uEBy 1OCSCOPY UCB.) 


v03-003 ROW0127 Ralph 0. Weber 5-0CT-1982 
Make changes required to use new UCR creation and deletion 
routines in UCBCREDEL. Rewrite REMSCKEATE CB adding 
knowledge of CRBS$W_REFC, number of UCB's on this CRB. ont 
restructuring to take maximum advantage of new rout 
Eliminate mailbox oriented ports of R MSKILL UCB ond chance 
IOCSDELMBX to IOCSDELETE_UC 
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os -SBTTL REMSLINK_AQB = Link aqgb into the aqb List 


FUNCTIONAL DESCRIPTION: 
This routine Links an AQB into the AQB List. 


CALLING SEQUENCE: 
BSBW REMSL INK AQB 


INPUT PARAMETERS: 


R2 = AQB address 
SIDE EFFECTS: 
None 


—— -DOGCOCCCCCOOOOQOOOOOOOCOCOCOOSCSOOoOO APF, 
AOYIMN DA WOCOOCCOCOCOCOCCOCOOOOCOOSCOOCCOCO 1 
——-DOOCDOCOGDOCCOCUOOOOOOOOOOMWMOOoODODCDCD 

=O ODNOA NE WN  O OD NOUS WWN (OO ONOAUE Wr 


0000 -PSECT S$LOCKEDC1$,NOWRT 
1 << 
START_LOCK: : : LABEL FOR LKWSET SERVICE 
1 REMSLINK_AQB:: 
58 52 08 1 MOVL 2,R8 ; Save the AQB address 
O0OSA 3 1 SBW CK_IODB : LS<4 the 1/0 database 
1 SETIPL #IPLS_SYNCH Up! PL 
OC A8& 60 A4 00 1 OVL PCB$L~PID(R4) ,AQBSL -AcPPiD« 8) ; Stuff the PID 
51 Q0000000'GF 9E 1 MOVAB 6 10CSGL AQBLIST,R1~ ; Get address of list head 
10 A8& 61 DO 1 MOVL (R1) pAQBSL _LINK(RB) ; Make forward Link from AQB 
58 00 1 MOVL R8,(R ; Make this AQB head of List 
004E 31 1 BRW UNLOCK 1008 ; Unlock the I/o database and return 
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FUNCTIONAL DESCRIPTION: 
This routine finds the UCB associated with a device name. 


CALLING SEQUENCE: 
BSBw REMSF IND UCB 


INPUT PARAMETERS: 
R1 = Address of device name descriptor 


OUTPUT PARAMETERS: 


RO - Lbc=>error; Lbs=>UCB found 
Ri = UCB address, if found 
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0000 -PSECT S$LOCKEDC1$,NOWRT 
; sa 
; REMSF IND_UCB 
3F = 10 6s8 LOCK _10DB ; LOCK THE 1/0 DATA BASE 
00000000'GF 16 3 JSB G* LOCSSEARCHDEV ; Find the UCB 
. _- 3 MOVQ RO,-(SP) 3; Save return info 
41 10 3 BSBB UNLOCK_IODB ; Unlock the I/0 data base 
50 8E& 7D 3 MOVQ (SP)+,RO ; Restore return info 
05 4 RSB ; Return 
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FUNCTIONAL DESCRIPTION: 
This routine clones a UCB . 


CALLING SEQUENCE: 
BSBw REMSCREATE_UCB 


INPUT PARAMETERS: 
RS = address of UCB to be cloned 


OUTPUT PARAMETERS: 


RO = Lbc=>error; lbs=>UCB found 
R2 = Cloned UCB address 


-PSECT S$LOCKEDC1$,NOWRT 


0000 


REMSCREATE_UCB:: 
CLR R 


Ss ee a as ss a a bs a > — 2 ss sb >» —» —» —» —_» 45 _» --» —» 4 _» —2 _d 4 4» 4» _4 


foleleleleleolelelelelelelelelelelelelelelelelelel el ol ele ol el el ole ele ole ale le) 
PVP BB BB NINN WIWI NAINA WIAA AAAI ANNI 
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50 04 L 0 ; Assume too many RT devices already. 
51 24 A5 00 MOVL UCBSL_CRB(R5), R1 ; Get CRB address. ; 
0000'CF OC Al 61 CMP CRBSW REFC(RIS, - ; Have the maximum number of Links 
Sgengemes: ; already been established? 
2 1E BGEQU ee ; Branch, error exit, if no free Links. 
10 BSBB 00B 3; Lock 1/0 database for write access. 
B4 CLRW ate UNIT_SEED(RS) 3 Limit unit numbers to MAXLINKS. 
00000000' o 16 JSB G*IOCSCLONE_UCB ; Clone the UCB. ; 
08 50 «EY BLBC RO, 80$ ; Branch, error exit, if clone failed. 
2c ey D4 CLRL UcBsL jit: ; Insure no owner of cloned UCB. 
00 38 A211 E5 BBCC vs ; Mark cloned UCB unallocated. 
UCBSL. BEVCHAR(R2), 80$ : 
50 DD 80$: PUSHL RO ; Save our two output registers. 
52 DD PUSHL RO 
14 10 BSBB UNLOCK_10DB ; Unlock the I/0 database. 
52 8ED0 POPL R2 ; Restore saved output registers. 
50 8ED0 POPL RO 
05 90$: RSB ; Return to caller. 
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_10DB = Lock the 10 database -SEP-1984 55:56 CREM.SRCJREMLOCKDB.MAR; 1 
6 183 -SBTTL LOCK_IODB = Lock the 10 database 
6 184 ; ++ 
06 185 ;: 
38 ! § ; FUNCTIONAL DESCRIPTION: 
$8 $ 3 THIS ROUTINE LOCKS THE 1/0 DATA BASE MUTEX. 
06 190 ; CALLING SEQUENCE: 
3 13) 3 BSB LOCK_10Dé 
06 138 ; INPUT PARAMETERS: 
8888 194 ; NONE 
06 195 ; 
0060 136 ; IMPLICIT INPUTS: 
4 77 3 NONE 
006 198 ; 
0060 199 ; OUTPUT PARAMETERS: 
0060 00 ; R4 = My PCB address 
0060 01; 
0060 8 3; IMPLICIT OUTPUTS: 
0060 03 ; NONE 
0060 04; 
0060 205 ; ROUTINE VALUE: 
0060 soo j NONE 
0060 07 ;s 
0060 08 ; SIDE EFFECTS: 
0060 09 ; 1/0 DATA BASE MUTEX LOCKED 
0060 10 ; 
0060 11 3-- 
0060 \¢ 
00000060 1 »~PSECT $LOCKEDC1$,NOWRT 
0060 sit 
0060 15 LOCK_IODB: 
54 00000000 ' GF DO 0060 216 MOVL G*SCHS$GL_CURPCB,R4 ; GET OWN PCB ADDRESS 
00000000 ' GF 17 0067 217 JMP G*SCHSIOLCOCKW 3; Lock the database and return 
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$p 18 ~SBTTL UNLOCK_IODB = Unlock the io database 
6D 1: 
rt ¢ 3 FUNCTIONAL DESCRIPTION: 
$98 ¢ 3 THIS ROUTINE UNLOCKS THE I/0 DATA BASE MUTEX. 
06D § 3; CALLING SEQUENCE: 
$¢4 , 3 BSB UNLOCK_1008 
06D 9 ; INPUT PARAMETERS: 
$4 9 : NONE 
dep § ; IMPLICIT INPUTS: 
006D 3 NONE 
006D 4; 
006D 5 ; OUTPUT PARAMETERS: 
006D $$ 3 
0060 3 R4 - My PCB address 
006D 38 ; 
006D 39 ; IMPLICIT OUTPUTS: 
006D 40 ; NONE 
006D 41; 
006D 4g ; ROUTINE VALUE: 
006D 45 ; NONE 
006D 44 ; 
006D 45 ; SIDE EFFECTS: 
0060 46; 1/0 yl BASE MUTEX UNLOCKED 
006D 247; IPL Set to 0 
006D see 5 
006D 49 ;-- 
0060 250 
0000006D $2) -PSECT $LOCKEDC1$,NOWRT 
006D 26 
0060 253 UNLOCK_IODB: 
54 O00000000'GF 00 O006D 254 MOVL G*SCH$G!__CURPCB,R4 ; Get PCB address 
00000000'GF 16 0074 255 JSB G*SCH$100NLOCK ; Unlock 1/0 database 
OO7A 256 SETIPL #0 ; Bring down the IPL 
05 007D 257 RSB 
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v04-000 EMSKILL_UCB = Deallocate a ucb -SEP-1984 75 48 REM. SRCJREMLOCKDB.MAR; 1 (6) 
O7E 59 -SBTTL REMSKILL_UCB = Deallocate a ucb 
OF Set i 
BOE 6¢ ; REMSKILL_UCB = Deallocate the UCB, maybe, and deassign the I/0 channel 
007E 64 ; INPUTS: 
QO7E 65 ; 
007E 66 ; Ril = device index 
007E 67 ; 
0O07E 68 ;-- 
007E 69 
po7e 70 REMSKILL Rees 
55 O000'DF4B 00 7E 71 flov aw*REMSGL UcevECCRTTI, R5 ; Get ge | UCB address 
26 «8613 «0084 i BEGL KILL_NET_CHA ; Branch if no UCB. 
D8 10 0086 7 BSBB LOCK” 1008 ; Lock 1/0 detebees for write access. 
38 AS 00080000 8F CA 0088 74 BICL #DEVSM_MNT, - ; Reset driver interlock. 
0090 75 UCBSL_BEVCHAR(RS) 
5C AS) B5 0090 s?§ TSTW UCB$W_REFC(R5) ; Is the UCB ready to go bye bye. 
D8 12 0093 77 BNEQ UNLOCR_ 1008 : If not, just give up (for now). 
50 3405 D0 0095 278 MOVL § UCB$L_0CB(R5), RO S Get Volume Control Block eddress. | 
4C AO B7 0099 279 DECW VCBSW_MCOUNT (RO) ; Decrement its mounted volume count. 
64 AS 00010000 8F C8 O09C 280 BISL #UCBSA_DELETEUCB, - ; Mark the UCB for deletion. 
OOAS 281 UCBSL_STS(R5) 
00000000'GF 16 O0A4 see SB G*IOCSDELETE_UCB ; Blow the UCB a 
C1 10 Bae $8 BSBB UNLOCK_10DB 3; Unlock the 1/0" datebene. 
OOAC 285 KILL_NET CHAN: 
0000'DF4B D4 ROAC see CLR @W*REMSGL_UCBVECCR11] ; UCB is gone 
0081 288 SDASSGN_S a@W*REMSGL_CHANVECCR11] ; Deassign the channel 
0000'DF4B 84 OOBE 289 CLRW  ~aW*REMSGL_CHANVECERI11] ; Clear the channel vector slot 
05 00C3 290 RSB : Done 
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Nive REMSSET_UP_IN = Create a ucb and setup t ~$Eb=1382 $5: 39:38 REM. SRCJREMLOCKDB.MAR; 1 ° (7) 
00C4 38 -SBTTL REMSSET_UP_IN = Create a ucb and setup the net channel 
Bt She 
Bate 8 ; REMSSET_UP_IN = Set up the I/0 data base for inbound connects 
00C4 97 ; INPUTS: 
00C4 98 ; 
00C4 99 ; NONE 
00C4 00 ; 
00C4 01 ; OUTPUTS: 
00C4 bs $ 
00C4 us 3 RO - LBC => couldn't do it; LBS => set up successful 
00C4 04; R7 = channel number 
00C4 OS ; RN - device inden 
00C4 $09 3 
00C4 07 ;-- 
00C4 $08 
00C4 309 REMSSET_UP_IN:: 
55 O000'CF DO O00C4 310 MOUL yenensel TEMPLATE,R5 ; Get address of UCB template | 
FF64 30 00C9 311 BSBW REMSCREATE_UCB ; Make a copy 
68 50 €9 OOCC 312 BLBC RO,SET_UP_BONE ; If LBC no go 
FF2E* 30 OOCF 313 BSBW REMSXPORT” CHAN 3; Get an oe peated 
65 50 €9 00D2 314 BLBC RO,SET_UP_DONE ; He LBC err 
5C A2 B4 O00D5 315 CLRW UCBSW_REFT(R2) ; Reset the vet count - no channel yet 
38 A2 00080000 8F CB 00D8 316 BISL #DEVSA_ mNT. UeBSL _DEVCHAR{RE) ; Mark device mounted, to get 
QOEO 317 : cancels in the acp and to show 
O0OEO 318 ; that the VCB field of the ucb 
QOEO 319 ; is valid. 
0080 C2 58 0 OOEO 320 MOVB R11 atthe perce ne : Save the index for later 
50 1€ AS DO O0ES 321 MOVL UCBSL TRS) RO : Get template device ORB 
51 1C A2 D0 Bree $55 MOVL UCBSL ~ORBIR2) ” Ri ; Get cloned device ORB 
QOED 324 ASSUME ORBSL_OWN_PROT EQ ORBSL_SYS_PROT+4 
ObeD $2 ASSUME ORBSL_ _WOR “PROT EQ ORBSL~ _GRP_ “PROT+4 
18 Al 18 AO 7D OOED 327 MOVQ ORBSL_SYS_PROT (RO) ,ORB$L_SYS_PROT(R1) ; Copy device 
20 Al 20 AO (7D poEs $56 MOVQ ORBSL_GRP_PROT(RO) ,ORBS$L_GRP_PROT(R1) : Protection 
0000'DF48 52 DO OOF7 330 MOVL po yaW“REMSGL UCBVECCR11] ; Save the UCB address 
57 0000'DF4B8 BO OOFD 331 MOVW W*REMSGL_ CHANVECCR11), R?’: Get the 1/0 channel 
55 26 DO 0103 336 MOVL Ro ORS ; Move UCB address for call 
ae. 3¢ 0106 33 MOVZWL R7,RO ; Move the channel 
00000000'GF 16 0109 33% SB G* fOCSVERIFYCHAN ; Obtain the CCB address 
61 00 B19 35 MOVL CCBSL_UCB(R1),- ; Obtain the UCB of the network 
00B0 C5 111 36 UCBSL_RTT_NETUCB(R5) ; and save in the RTT UCB 
00B8 C5 DE 0114 37 MOVAL UCBSL_RTT_IRPFL(R5),- ; Init the IRP queue head 
00B8 C5 0118 338 UCBSL_RTT_IRPFL(R5) : 
00B8 C5 «(DE «0118 339 MOVAL UCBSLTRTT“IRPFL(RS),-  : 
0OBC C5 O11F 40 UCBSL_RTT_IRPBL(R5) 3 
00cO C5) D4 S«0122 2S 341 CLRL UCBSL_RTT_NETIRP(RS) ; No IRP for Net receive yet 
00B4 C5 D4 0126 328 RL UCBSL_RTT_NETWIND(R5) 3; No window yet 
bIgA 34 DSBINT vIPL SYNCH 3; Disable interrupts 
51 34 AS DO 0130 344 VL UCBS$L_VCB(R5) ,R1 ; VCB address 
4C Al B6 0134 45 Cw VCBSW-MCOUNT(R1) ; One more device mounted 
4 7 46 ENBINT 3; Drop the ipl 
13A 347 SET_UP_DONE: 
05 013A 48 RSB : Done 
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~-SBTTL REMSCHK ACPDONE = See if the acp can exit 
-SBTTL REMSGO_AWAY = Terminate the acp 


++ 
FUNCTIONAL DESCRIPTION: 


; REMSCHK_ACPDONE = See if the ACP can cease operation 
REMSGO_AWAY = Terminate operation. Called if ACP can't really get started. 


CALLING SEQUENCE: 

BSB REMSCHK_ACPDONE 
INPUT PARAMETERS: 

R2 = AQB ADDRESS 
SIDE EFFECTS: 


; ACP MAY TERMINATE 
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-ENABLE LSB 

REMSCHK_ACPDONE: : 

; The nw code gets rid of all channels over which names were declared 
) 


: and forces closeouts (e.g., logouts) on all active remote devices. 
: The cleanup is asynchronous, so a number of passes may be made through 
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; this code. 
56 D4 CLRL R6 ; Reset active channel counter 
5B QOO0'CF 9A 108 MOVZBL W*REMSGB_MAXLINKS,R11 ; Set up to loop 
0000'DF4B «BS TSTW @W*REMSGL_CHANVECCR11] ; Check the next channel 
13 BEQL : EQL not active 
05 0000'DF4B ED BLBC  a@W*REMSGL_UCBVECCR11],20$ ; If LBC remote device 
FFSA 30 BSBW KILL_NET_CHAN ; Get rid of this comm channel 
11 BRB 30$ ; Loop 
208: 
peeaee 
; If the following instruction is included, REMACP will blow awa 
91 ; all remote terminal connections. When it is not included, REMACP 
3 3; will not evaporate until all remote terminals are gone. 
3¢ : BSBW REMSCLEAN_UP ; Pretend there was a disconnect 
96 teens 
56 66 3 30s INCL R6 ; This was an active channel 
9 SR OFS 99° -—s- SOBGTR R11, 108 ; Loop . 
56 =O 00 TSTL R6 ; Were there any active channels? 
OA 12 4 BNEQ 50$ ; If NEQ yes - wait 
a8 : Now see if there are any UCB's still active 
5B O000'CF 9A 05 ns MOVZBL W*REMS$GB_MAXLINKS,R11 ; Init count 
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0000"or 39 d5 168 rt 14 TSTL @W*REMSGL_UCBVECCR11] ; In use? 
ig 16 408 50$: BNEQ 1108 :; If NEQ yes - go away 
F6 5B SOF 169 409 SOBGTR R11,40$ ; Loop 
196 219 SDASSGN_S W*REMS$GW_MBX_CHAN ; Kill the mailbox 
6178 tig REM$GO_AWAY: : 
0178 413; 
8178 ret ; Everybody went away - now deallocate VCB 
54 O000°CF DO 0178 416 MOVL W*REMSGL_TEMPLATE ,R4 ; Get UCB address 
F 13 OQO17D 417 BEQL ; If EQL done 
50 34 A4 0 O17F 418 MOVL UCBSL_VCB(R4) ,RO ; Get the VCB address 
09 13 «#0183 419 BEQL 60$ : If EQL none was allocated 
OONO0000'GF 16 0185 420 JSB G*EXESDEANONPAGED ; Deallocate it 
34 AG OG p188 $s! 608 CLRL UCBSL_VCB(R4) ; No VCB any more 
58  Q000'CF DO B18s 15 MOVL W*REMSGL_Q_HEAD,R8 ; Get the AQB addres 
FECA 30 019 424 BSBW LOCK_I0DB ~ 3 ee a. 1/0 DATA “BASE 
0196 425 SETIPL #IPLS_SYNCH : af 
58 68 Di 0199 426 CMPL AQBSL~ ACPQFL(R8) ,R8 ; : Y 170 IN QUEUE? 
3D 12 apes ri +4 BNEQ 100$ ~ ; IF NEQ YES = DON'T TERMINATE 
Ht; £83 3 NO MORE I/0 = NOW UNHOOK THE AQB FROM THE SYSTEM AQB LIST 
51 00000000 ' GF 9E Q19E 431 MOVAB G*IOC$GL_AQBLIST,R1 ; GET THE LIST ADDRESS 
50 61 DO O1A5 432 MOVL (R1),R0 ; GET FIRST AQB POINZER 
50 58 D1 O1A8 433 CMPL —RB, RO : IS IT THE FIRST? 
06 12 QO1AB 434 BNEQ 0 2 ; IF NEQ N 
61 10 AB DO OAD 435 MOVL AQBSL_LINK(R8), (R1) ; LINK IT IN 
11 #11 #0181 436 BRB 90$ bo. : DONE 
01B3 437 70$: 4 
58 10 AO D1 0183 438 CMPL AQBSL_LINK(RO) ,RS ; IS THIS IT? 
06 13 0187 439 BEQL 80$ ; IF EQL YES 
50 10A0 DO 0189 440 MOVL AQBSL_LINK(RO) ,RO ; GET LINK 
F4 11 O18D 441 BRB 70$ ; LOOP 
O1BF 442 80$: 
10 AO 10 A8 dO Ries rr 908 MOVL AQBSL_LINK(R8) ,AQBSL_LINK{RO) ; RELINK 
50 58 DO O1C4 445 MOVL R8,RO ; SET TO SEALLOCATE THE AQB 
00000000 ' GF 16 O01C7 446 JSB G*EXESDEANONPAGED ; DO IT 
FE9D 30 O1CD 447 BSBW UNLOCK_I0DB ; NOW UNLOCK THE I/0 DATABASE 
01D0 448 ‘ SDELPRC_S ; SAYOWARA! 
01DB 449 100$: 
FE8F 31 O1DB 450 BRW UNLOCK_I0DB ; Now unlock the I/0 database and return 
05 O1DE 451 110$: RSB 
01DF $26 
O1DF 45 -DISABLE LSB 
01DF 454 
O1DF 455 END_LOCK:: 
O1DF 456 
O1DF 86 457 ~ END 
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REMLOCKDB 
Symbol table 


RO 
ORB$L~SYS_PROT 
ORBSL~WOR-PROT 
PCBS$L-PID 


PRS I 
REMSCHK_ACPDONE 


REMSSET_OP_IN 
RERSKPORT CHAN 


“RTT_LEN 
UCB$K~RTT~LENGTH 
UCB$L-CRB 
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0000001F 
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0000007E 
00000000 
000000C4 
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U 
UCB$W-UNIT_SEED 
UNLOCR_ 1008 
VCB$W_ACOUNT 
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PSECT name Allocation PSECT No. Attributes 
. 00000000 <¢ 0.) OO ¢ 0.) NOPIC USR CON ABS LCL wos NOEXE NORD me NOVEC BYTE 
00000000 0.) QO1¢ +1.) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
SLOCKEDC1$ QOOOOIDF ¢ 479.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOURT NOVEC BYTE 
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Phase Page faults CPU Time Elapsed Time 
Initialization 38 00:00:00.10 00:00:00.61 
Command processing 156 00:00:00.63 00:00:03.45 
Pass 1 408 00:00:14.57 00:00:27.62 
Symbol table sort 0 00:00:02.37 00:00:03.33 
Pass 2 91 00:00:02.58 00:00:04.00 
Symbol table output 10 00:00:00.14 00:00:00.87 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 707 00:00:20.43 00:00:39.90 


The working set Limit was 1650 pages. 

79097 bytes (155 pages) of virtual memory were used to buffer the intermediate cod 

There were 90 pages of symbol table space allocated to hold 1548 non-local and 13 local symbols. 
457 source Lines were read in Pass 1, producing 16 object records in Pass 2. 

36 pages of virtual memory were used to define 35 macros. 
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Macro Library name Macros defined 
.$255$DUA28: CREM.OBJIREM. eB: 1 2 
“$255$DUA28: CSYS.OBJJLIB.MLB; 1 20 
“$255$DUA28: Cevei IBISTARLET. MLB;2 9 

TOTALS (all Libraries) 31 


1725 GETS were required to define 31 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:REMLOCKDB/OBJ=OBJ$:REMLOCKDB MSRC$:REMLOCKDB/UPDATE=(ENHS:REMLOCKDB) +EXECML$/LIB+LIB$:REM/LIB 
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